home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Webster's World Encyclopedia
/
Webster's World Encyclopedia.iso
/
data.z
/
REGO32.EXE
/
0
/
RCDATA
/
TREGFORM
/
TREGFORM.txt
< prev
Wrap
Text File
|
1997-11-05
|
20KB
|
955 lines
object RegForm: TRegForm
Left = 176
Top = 129
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = 'Registration Wizard'
ClientHeight = 282
ClientWidth = 419
Color = clSilver
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
Icon.Data = {<image000.ico>}
Position = poScreenCenter
Visible = True
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 16
object Sockets1: TSockets
Left = 7
Top = 353
Width = 32
Height = 32
MaximumReceiveLength = 8192
OnErrorOccurred = Sockets1ErrorOccurred
end
object Sockets2: TSockets
Left = 7
Top = 397
Width = 32
Height = 32
MaximumReceiveLength = 8192
OnErrorOccurred = Sockets1ErrorOccurred
end
object grpWiz6a: TGroupBox
Left = 377
Top = 405
Width = 269
Height = 217
Caption = ' Select Internet Connection '
Ctl3D = True
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 3
Visible = False
object lblSelect: TLabel
Left = 13
Top = 20
Width = 246
Height = 29
AutoSize = False
Caption =
'Select a connection from the list below or click on the Create N' +
'ew button to setup a new connection:'
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lstEntries: TListBox
Left = 13
Top = 60
Width = 242
Height = 97
Hint = 'Click on an entry to select it'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object btnCreateEntry: TButton
Left = 19
Top = 177
Width = 106
Height = 23
Hint = 'Click to add a new Internet connection'
Caption = '&Create New...'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = btnCreateEntryClick
end
object btnEditEntry: TButton
Left = 141
Top = 177
Width = 106
Height = 23
Hint = 'Click to edit the selected connection'
Caption = '&Edit Selected...'
Enabled = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = btnEditEntryClick
end
end
object grpWiz7a: TGroupBox
Left = 356
Top = 407
Width = 269
Height = 217
Caption = ' Name and Password '
Ctl3D = True
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 4
Visible = False
object lblParams: TLabel
Left = 12
Top = 43
Width = 66
Height = 16
AutoSize = False
Caption = 'Connect To:'
end
object lblISP: TLabel
Left = 84
Top = 43
Width = 180
Height = 16
AutoSize = False
end
object lblPassword: TLabel
Left = 12
Top = 114
Width = 59
Height = 19
Caption = '&Password:'
end
object lblUserName: TLabel
Left = 12
Top = 76
Width = 59
Height = 19
Caption = '&User name:'
end
object lblNamePass: TLabel
Left = 12
Top = 18
Width = 235
Height = 19
AutoSize = False
Caption = 'Please enter your Name and Password (if blank):'
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object txtUserName: TEdit
Left = 81
Top = 74
Width = 158
Height = 21
Hint = 'Enter the User name for this connection'
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnChange = txtUserNameChange
end
object txtPassword: TEdit
Left = 81
Top = 112
Width = 158
Height = 21
Hint = 'Enter the Password for this connection'
ParentShowHint = False
PasswordChar = '*'
ShowHint = True
TabOrder = 1
OnChange = txtPasswordChange
end
object optDialMode: TRadioGroup
Left = 22
Top = 203
Width = 121
Height = 33
Caption = 'Dial mode'
Columns = 2
ItemIndex = 0
Items.Strings = (
'Sync'
'Async')
TabOrder = 3
Visible = False
end
object chkSave: TCheckBox
Left = 12
Top = 155
Width = 152
Height = 17
Hint = 'Save the User name and Password for next time'
Caption = '&Save Name and Password'
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
end
object btnClose: TButton
Left = 337
Top = 248
Width = 69
Height = 21
Hint = 'Click to close the Registration Wizard'
Caption = 'Cancel'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = btnCloseClick
end
object btnNext: TButton
Left = 213
Top = 248
Width = 74
Height = 21
Hint = 'Click to go to the next screen'
Caption = '&Next >'
Default = True
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = btnNextClick
end
object btnBack: TButton
Left = 139
Top = 248
Width = 74
Height = 21
Hint = 'Click to go to the previous screen'
Caption = '< &Back'
Enabled = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = btnBackClick
end
object grpWiz8a: TGroupBox
Left = 36
Top = 368
Width = 269
Height = 217
Caption = ' Connection Status '
Ctl3D = True
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 5
Visible = False
object lblStatus0: TLabel
Left = 13
Top = 157
Width = 80
Height = 17
AutoSize = False
Caption = 'Connect Status:'
end
object lblStatus: TLabel
Left = 93
Top = 157
Width = 159
Height = 17
Hint = 'Shows status of internet connection and file retrieval'
AutoSize = False
Color = clSilver
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
ParentShowHint = False
ShowHint = True
end
object lblConStat1: TLabel
Left = 13
Top = 35
Width = 80
Height = 17
AutoSize = False
Caption = 'Connected To:'
end
object lblConStat1b: TLabel
Left = 93
Top = 35
Width = 159
Height = 17
Hint = 'Shows status of internet connection and file retrieval'
AutoSize = False
Color = clSilver
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
ParentShowHint = False
ShowHint = True
end
object lblConStat2: TLabel
Left = 13
Top = 76
Width = 80
Height = 17
AutoSize = False
Caption = 'Device Type:'
end
object lblConStat2b: TLabel
Left = 93
Top = 76
Width = 159
Height = 17
Hint = 'Shows status of internet connection and file retrieval'
AutoSize = False
Color = clSilver
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
ParentShowHint = False
ShowHint = True
end
object lblConStat3: TLabel
Left = 13
Top = 116
Width = 80
Height = 17
AutoSize = False
Caption = 'Device Name:'
end
object lblConStat3b: TLabel
Left = 93
Top = 116
Width = 159
Height = 17
Hint = 'Shows status of internet connection and file retrieval'
AutoSize = False
Color = clSilver
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
ParentShowHint = False
ShowHint = True
end
end
object grpWiz1: TGroupBox
Left = 138
Top = 11
Width = 269
Height = 217
Caption = ' Name and Company '
Ctl3D = True
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 8
object lblName1: TLabel
Left = 12
Top = 50
Width = 55
Height = 17
AutoSize = False
Caption = 'Name:'
end
object lblName2: TLabel
Left = 12
Top = 86
Width = 55
Height = 17
AutoSize = False
Caption = 'Job Title:'
end
object lblName3: TLabel
Left = 12
Top = 122
Width = 55
Height = 17
AutoSize = False
Caption = 'Company:'
end
object lblName4: TLabel
Left = 12
Top = 158
Width = 109
Height = 17
AutoSize = False
Caption = 'Product to Register:'
WordWrap = True
end
object lblName: TLabel
Left = 12
Top = 18
Width = 235
Height = 19
AutoSize = False
Caption = 'Please enter your Name and Company details:'
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object txtName: TEdit
Left = 66
Top = 48
Width = 187
Height = 21
TabOrder = 0
end
object txtJob: TEdit
Left = 66
Top = 84
Width = 187
Height = 21
TabOrder = 1
end
object txtCompany: TEdit
Left = 66
Top = 120
Width = 187
Height = 21
TabOrder = 2
end
object txtProduct: TEdit
Left = 12
Top = 174
Width = 241
Height = 21
Ctl3D = True
ParentCtl3D = False
TabOrder = 3
end
end
object grpWiz5: TGroupBox
Left = 135
Top = 362
Width = 269
Height = 217
Caption = ' Registration Method '
Ctl3D = True
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 9
Visible = False
object lblMethod: TLabel
Left = 12
Top = 24
Width = 241
Height = 31
AutoSize = False
Caption =
'Please select the method to send your registration details to We' +
'bster Publishing:'
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object radMethod1: TRadioButton
Left = 18
Top = 84
Width = 235
Height = 19
Caption = '&Print registration form and send by fax or post'
Checked = True
TabOrder = 0
TabStop = True
end
object radMethod2: TRadioButton
Left = 18
Top = 120
Width = 235
Height = 19
Caption = '&Transmit registration form using the Internet'
TabOrder = 1
end
object radMethod3: TRadioButton
Left = 18
Top = 156
Width = 241
Height = 19
Caption = '&Save registration form to a file'
TabOrder = 2
end
end
object grpWiz9: TGroupBox
Left = 406
Top = 362
Width = 269
Height = 217
Caption = ' Registration Complete '
Ctl3D = True
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 13
Visible = False
object lblFinish: TLabel
Left = 12
Top = 37
Width = 247
Height = 60
AutoSize = False
Caption = 'Thankyou. Registration was successful.'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Memo1: TMemo
Left = 264
Top = 211
Width = 151
Height = 29
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'Memo1')
ParentFont = False
ScrollBars = ssVertical
TabOrder = 0
Visible = False
end
end
object Panel1: TPanel
Left = 12
Top = 16
Width = 113
Height = 253
BevelOuter = bvLowered
Color = clSilver
TabOrder = 14
object imgLogo: TImage
Left = 1
Top = 1
Width = 111
Height = 251
Picture.Data = {<image001.bmp>}
Stretch = True
end
end
object grpWiz2: TGroupBox
Left = 440
Top = 23
Width = 269
Height = 217
Caption = ' Address Details '
Ctl3D = True
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 10
Visible = False
object lblAddr1: TLabel
Left = 12
Top = 42
Width = 97
Height = 17
AutoSize = False
Caption = '&Address:'
end
object lblAddr3: TLabel
Left = 138
Top = 122
Width = 79
Height = 17
AutoSize = False
Caption = '&Zip/Post Code:'
end
object lblAddr2: TLabel
Left = 12
Top = 122
Width = 79
Height = 17
AutoSize = False
Caption = '&State:'
end
object lblAddr4: TLabel
Left = 12
Top = 170
Width = 79
Height = 17
AutoSize = False
Caption = '&City'
end
object lblAddr5: TLabel
Left = 138
Top = 170
Width = 79
Height = 17
AutoSize = False
Caption = 'C&ountry'
end
object lblAddr: TLabel
Left = 12
Top = 18
Width = 235
Height = 19
AutoSize = False
Caption = 'Please enter your address details:'
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object memAddr: TMemo
Left = 12
Top = 58
Width = 241
Height = 49
TabOrder = 0
end
object txtPostCode: TEdit
Left = 138
Top = 138
Width = 115
Height = 21
TabOrder = 2
end
object txtState: TEdit
Left = 12
Top = 138
Width = 115
Height = 21
TabOrder = 1
end
object txtCity: TEdit
Left = 12
Top = 186
Width = 115
Height = 21
TabOrder = 3
end
object txtCountry: TEdit
Left = 138
Top = 186
Width = 115
Height = 21
TabOrder = 4
end
end
object grpWiz3: TGroupBox
Left = 462
Top = 108
Width = 269
Height = 217
Caption = ' Phone, Fax and Email'
Ctl3D = True
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 11
Visible = False
object lblPh4: TLabel
Left = 12
Top = 142
Width = 73
Height = 17
AutoSize = False
Caption = 'Internet Email:'
end
object lblPh1: TLabel
Left = 12
Top = 50
Width = 85
Height = 17
AutoSize = False
Caption = 'Telephone (AH):'
end
object lblPh3: TLabel
Left = 12
Top = 106
Width = 46
Height = 17
Caption = 'Facsimile:'
end
object lblPh2: TLabel
Left = 12
Top = 78
Width = 85
Height = 17
AutoSize = False
Caption = 'Telephone (BH):'
end
object lblPh5: TLabel
Left = 60
Top = 192
Width = 157
Height = 17
AutoSize = False
Caption = 'representative to contact me.'
end
object lblPh: TLabel
Left = 12
Top = 18
Width = 235
Height = 19
AutoSize = False
Caption = 'Please enter your contact details:'
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object txtPh1: TEdit
Left = 100
Top = 48
Width = 39
Height = 21
TabOrder = 0
end
object txtPh2: TEdit
Left = 144
Top = 48
Width = 109
Height = 21
TabOrder = 1
end
object txtFax1: TEdit
Left = 100
Top = 104
Width = 39
Height = 21
TabOrder = 4
end
object txtFax2: TEdit
Left = 144
Top = 104
Width = 109
Height = 21
TabOrder = 5
end
object txtEmail: TEdit
Left = 100
Top = 140
Width = 153
Height = 21
CharCase = ecLowerCase
TabOrder = 6
end
object txtPh3: TEdit
Left = 100
Top = 76
Width = 39
Height = 21
TabOrder = 2
end
object txtPh4: TEdit
Left = 144
Top = 76
Width = 109
Height = 21
TabOrder = 3
end
object chkContact: TCheckBox
Left = 42
Top = 177
Width = 193
Height = 17
Caption = 'I would like a Webster Publishing'
TabOrder = 7
end
end
object grpWiz4: TGroupBox
Left = 374
Top = 323
Width = 269
Height = 217
Caption = ' Software Survey (optional) '
Ctl3D = True
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 12
Visible = False
object lblSurv1: TLabel
Left = 12
Top = 19
Width = 238
Height = 26
Caption = 'Which companies'#39' Office productivity tools do you use?'
WordWrap = True
end
object lblSurv2: TLabel
Left = 12
Top = 78
Width = 253
Height = 16
AutoSize = False
Caption = 'Comments on this product or Webster Publishing:'
WordWrap = True
end
object lblSurv3: TLabel
Left = 10
Top = 156
Width = 243
Height = 16
AutoSize = False
Caption = 'Webster Publishing products you are interested in:'
WordWrap = True
end
object chkSurv1: TCheckBox
Left = 12
Top = 48
Width = 67
Height = 19
Caption = 'Microsoft'
TabOrder = 0
end
object chkSurv2: TCheckBox
Left = 85
Top = 48
Width = 48
Height = 19
Caption = 'Corel'
TabOrder = 1
end
object chkSurv3: TCheckBox
Left = 141
Top = 48
Width = 52
Height = 19
Caption = 'Lotus'
TabOrder = 2
end
object chkSurv4: TCheckBox
Left = 199
Top = 48
Width = 48
Height = 19
Caption = 'Other'
TabOrder = 3
end
object memSurv: TMemo
Left = 12
Top = 94
Width = 241
Height = 49
ScrollBars = ssVertical
TabOrder = 4
end
object chkSurv6: TCheckBox
Left = 156
Top = 174
Width = 97
Height = 17
Caption = 'Training books'
TabOrder = 6
end
object chkSurv8: TCheckBox
Left = 156
Top = 192
Width = 97
Height = 17
Caption = 'Games'
TabOrder = 8
end
object chkSurv5: TCheckBox
Left = 12
Top = 174
Width = 141
Height = 17
Caption = 'Computer Based Training'
TabOrder = 5
end
object chkSurv7: TCheckBox
Left = 12
Top = 192
Width = 127
Height = 17
Caption = 'Multimedia references'
TabOrder = 7
end
end
object dlgPrint: TPrintDialog
Left = 336
Top = 336
end
end